home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '90 / MacHack'90 Proceedings / John Norstad / Reusable Code / Source / unmount.a < prev    next >
Encoding:
Text File  |  1990-06-10  |  1008 b   |  30 lines  |  [TEXT/MPS ]
  1.     title    'unmount'
  2.     
  3. ;_____________________________________________________________________
  4. ;
  5. ; unmount.a - UnmountVol Trap Patch.
  6. ;
  7. ; Copyright © 1988, 1989, 1990 Northwestern University.  Permission is 
  8. ; granted to use this code in your own projects, provided you give credit 
  9. ; to both John Norstad and Northwestern University in your about box or 
  10. ; document.
  11. ;    
  12. ; This routine is used to patch the UnmountVol trap when the standard
  13. ; save file dialog is presented if the report becomes full during a
  14. ; disk scan.  It simply returns to the caller with the function result
  15. ; noErr, preventing the volume unmount.  (See routine DoSave in main.c).
  16. ;
  17. ; The problem is that the standard file package attempts to unmount
  18. ; volumes before returning to the caller.  We must prevent this during
  19. ; disk scans.
  20. ;
  21. ; Entry:    (a0) = pointer to parameter block.
  22. ;
  23. ; Exit:        (d0) = function result = noErr.
  24. ;_____________________________________________________________________
  25.  
  26.  
  27. Unmount        func    export
  28.         clr.w    d0
  29.         rts
  30.         end